﻿Imports System
Imports System.Collections.Generic
Imports System.Xml

Namespace System.Workflow.Runtime
    Friend NotInheritable Class CreationContext
        ' Methods
        Friend Sub New(ByVal xomlReader As XmlReader, ByVal rulesReader As XmlReader, ByVal args As Dictionary([Of] String, Object))
            Me.XomlReader = xomlReader
            Me.RulesReader = rulesReader
            Me.InvokerExecutor = Nothing
            Me.InvokeActivityID = Nothing
            Me.Args = args
            Me.IsActivation = True
        End Sub

        Friend Sub New(ByVal type As Type, ByVal invokerExec As WorkflowExecutor, ByVal invokeActivityID As String, ByVal args As Dictionary([Of] String, Object))
            Me.Type = type
            Me.InvokerExecutor = invokerExec
            Me.InvokeActivityID = invokeActivityID
            Me.Args = args
            Me.IsActivation = True
        End Sub


        ' Fields
        Friend Args As Dictionary([Of] String, Object)
        Friend Created As Boolean
        Friend InvokeActivityID As String
        Friend InvokerExecutor As WorkflowExecutor
        Friend IsActivation As Boolean
        Friend RulesReader As XmlReader
        Friend Type As Type
        Friend XomlReader As XmlReader
    End Class
End Namespace

